home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_93-07_1993_-_de_Side_B.d64 / video >>3<< (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  15KB  |  495 lines
  1. 5 poke45,124:poke46,66:poke47,124:poke48,66:poke49,124:poke50,66
  2. 10 an$="000":en$="000":ca$="000":poke775,200:poke788,52:poke808,225
  3. 50 print"[147]":poke53280,0:poke53281,15:poke53270,7:poke53265,23:rem tsp
  4. 51 a$(1)="[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  5. 52 dimn$(19,17):dimza$(500),zb$(500):un=0
  6. 61 goto1000
  7. 90 print"[147]":gosub100:goto150:a$=""
  8. 100 print"[151]tsp[160]video[160]master[160]v2.0[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  9. 105 print"[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  10. 110 ifan=0thena$="18":goto130
  11. 111 a=18-an:ifa<10thena$="0":a$=a$+right$(str$(a),1):goto130
  12. 112 a$=right$(str$(a),2)
  13. 130 print""spc(24)a$;""ca$;""an$;"-"en$:return
  14. 150 geta$:ifa$=""then150
  15. 151 ifa$="[160]"thente=1:goto200
  16. 199 goto150
  17. 200 print"[151]info[160]projects[160]disk[160]register[160]exit[160][160][160][160][160][160]"
  18. 201 forx=1to8:print"                                       ":next
  19. 300 ontegoto310,400,500,3900,600
  20. 310 print"info":print"[151][207]\\\\\\\\\\\\\\\\\\\\\\\\\\[208]
  21. 311 [153]"&writtenclosebyclosethorstencloseluszekthen
  22. 312 print"&[209][160]1993[160]by[160]magic[160]disk[160]64[160][160][160][167]
  23. 313 [153]"&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  24. 314 print"&version[160]2.0[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  25. 315 [153]"(NULL)totototototototototototototototototototototototototosqr
  26. 320 goto700
  27. 400 print"projects[151]":gosub401:goto410
  28. 401 print"[151][207]\\\\\\\\\\\\\\\\[208]
  29. 402 [153]"&cassettecloseansehenthen
  30. 403 print"&filme[160]ansehen[160][160][160][167]
  31. 404 [153]"&eingebencloseclosecloseclosecloseclosecloseclosethen
  32. 405 print"&suchen[160][160][160][160][160][160][160][160][160][160][167]
  33. 407 [153]"(NULL)totototototototototototototototosqr":[142]
  34. 410 [153]""[166]6)"cassettepokecloseansehen":tu[178]1:la[178]4:[137]700
  35. 500 [153]""[166]14)"diskpoke":[141]501:[137]511
  36. 501 [153]"poke"[166]14)"(NULL)\\\\\\\\\\\\(NULL)
  37. 502 printspc(14)"&generator[160][160][160][167]
  38. 503 [153][166]14)"&loadcloseclosecloseclosecloseclosecloseclosethen
  39. 504 printspc(14)"&save[160][160][160][160][160][160][160][160][167]
  40. 505 [139]as[178]0[167][153][166]14)"&autoclosesaveclosecloseclosethen":[137]507
  41. 506 [153][166]14)"&autoclosesavecloseclose*then
  42. 507 printspc(14)"&save[160]titel[160][160][167]
  43. 508 [153][166]14)"&initializecloseclosethen
  44. 509 printspc(14)"[204][164][164][164][164][164][164][164][164][164][164][164][164][186]
  45. 510 [142]
  46. 511 [153]""[166]15)"generator":tu[178]1:la[178]6:[137]700
  47. 600 [153]""[166]28)"exitpoke":[141]601:[137]611
  48. 601 [153]""[166]28)"poke(NULL)\\\\\(NULL)
  49. 602 printspc(28)"&-----[151][167]
  50. 603 [153][166]28)"&resetpokethen
  51. 606 printspc(28)"[204][164][164][164][164][164][186]
  52. 610 [142]
  53. 611 [153]""[166]29)"-----":la[178]2:tu[178]1:[137]700
  54. 700 [161]a$:[139]a$[178]""[167]700
  55. 701 [139]a$[178]"cmd"[167]710
  56. 702 [139]a$[178]""[167]720
  57. 703 [139]a$[178]""[167]730
  58. 704 [139]a$[178]"on"[167]740
  59. 705 [139]a$[178][199](13)[167]760
  60. 706 [137]700
  61. 710 [139]te[178]1[167]700
  62. 711 te[178]te[171]1:[137]200
  63. 720 [139]te[178]5[167]700
  64. 721 te[178]te[170]1:[137]200
  65. 730 [139]tu[178]la[167]700
  66. 731 tu[178]tu[170]1:[137]750
  67. 740 [139]tu[178]1[167]700
  68. 741 tu[178]tu[171]1:[137]750
  69. 750 [145]te[137]700,810,800,840,850
  70. 760 [145]te[137]90,940,920,4000,930
  71. 800 [141]501:[153]"":[145]tu[137]801,802,803,804,806,807
  72. 801 [153][166]15)"generator":[137]700
  73. 802 [153][166]15)"load":[137]700
  74. 803 [153][166]15)"save":[137]700
  75. 804 [139]as[178]0[167][153][166]15)"autopokeclosesavepokecloseclose":[137]700
  76. 805 [153][166]15)"autopokeclosesavepokecloseclose*":[137]700
  77. 806 [153][166]15)"saveclosetitel":[137]700
  78. 807 [153][166]15)"initialize":[137]700
  79. 810 [141]401:[153]"":[145]tu[137]811,812,813,814
  80. 811 [153][166]6)"cassettepokecloseansehen":[137]700
  81. 812 [153][166]6)"filmepokecloseansehen":[137]700
  82. 813 [153][166]6)"eingeben":[137]700
  83. 814 [153][166]6)"suchen":[137]700
  84. 820 [141]3010:[153]"":[145]tu[137]821,822,823,824,825,826,827,829,830,831,832
  85. 821 [153]"titel":[137]3050
  86. 822 [153]"untertitel":[137]3050
  87. 823 [153]"genre":[137]3050
  88. 824 [153]"jahr":[137]3050
  89. 825 [153]"darsteller":[137]3050
  90. 826 [153]"regie":[137]3050
  91. 827 [153]"fsk":[137]3050
  92. 829 [153]"restclose(groesser)":[137]3050
  93. 830 [153]"restclose(gleich)":[137]3050
  94. 831 [153]"titelclose(register)":[137]3050
  95. 832 [153]"ausgang":[137]3050
  96. 840 [141]3901:[153]"":[145]tu[137]841,842,843
  97. 841 [153][166]20)"titelclosecopieren":[137]700
  98. 842 [153][166]20)"titelclosetauschen":[137]700
  99. 843 [153][166]20)"titelcloseansehen":[137]700
  100. 850 [141]601:[153]"":[145]tu[137]851,852
  101. 851 [153][166]29)"-----":[137]700
  102. 852 [153][166]29)"reset":[137]700
  103. 920 [145]tu[137]1200,923,921,1540,3800,1500
  104. 921 [137]925
  105. 922 a$[178]"esclosebefindetclosesichclosekeineclosecassettecloseimclosespeicherclose!!!":[141]2000:[137]90
  106. 923 [139]ii[178]1[167]1400
  107. 924 a$[178]"esclosewurdeclosekeineclosediskettecloseinitialisiertclose!!!":[141]2000:[137]90
  108. 925 [139]cl[178]0[167]922
  109. 926 [139]an[178]0[167]1550
  110. 927 [137]1520
  111. 930 [139]tu[178]1[167]700
  112. 939 [151]53265,0:[158]64738
  113. 940 [145]tu[137]941,941,950,960
  114. 941 [139]cl[178]1[175]an[177]0[167]1580
  115. 942 [139]cl[178]0[167]944
  116. 943 [139]an[178]0[167]945
  117. 944 a$[178]"esclosebefindetclosesichclosekeineclosecassettecloseimclosespeicherclose!!!":[141]2000:[137]90
  118. 945 a$[178]"esclosebefindetclosesichclosekeinclosefilmcloseaufclosederclosecassetteclose!!!":[141]2000:[137]90
  119. 950 [139]an[178]18[167]952
  120. 951 [139]cl[178]0[167]944
  121. 952 [137]1700
  122. 953 a$[178]"esclosebefindenclosesichclosebereitsclose18closefilmecloseimclosespeicher !!!":[141]2000:[137]90
  123. 960 [139]ii[178]1[167]3000
  124. 961 [137]924
  125. 1000 [153]"load":[139]c[178]0[167]1100
  126. 1010 [161]a$:[139]a$[178]""[167]1010
  127. 1012 [139][198](a$)[179]65[176][198](a$)[177]90[167]1010
  128. 1013 b$[178]b$[170]a$:a[178]a[170]1:[139]a[178]6[175]b$[178]c$[167]1100
  129. 1014 [139]a[178]6[175]b$[179][177]c$[167][144]
  130. 1020 [137]1010
  131. 1100 [153]"poke(NULL)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(NULL)
  132. 1101 print"&wilkommen[160]zum[160]video[160]master[160]!!![167]
  133. 1102 [153]"(NULL)totototototototototototototototototototototototototototototosqr
  134. 1110 forx=1to1000:nextx:goto90
  135. 1200 gosub100:b$="":b=0
  136. 1210 print"[207]\\\\\\\\\\\\\\\\\\\\\\\\[208]
  137. 1211 [153]"&closeclosedatenclosediskclosegeneratorcloseclosethen
  138. 1212 print"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  139. 1213 [153]"&cassettencloseanfangclose?closeclosecloseclosecloseclosethen
  140. 1214 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
  141. 1220 [153]""[166]25)b$"+poke"
  142. 1230 [161]a$:[139]a$[178]""[167]1230
  143. 1231 [139]a$[178][199](20)[167]1200
  144. 1232 [139]a$[178][199](13)[175]b[177]0[167]1240
  145. 1233 [139]a$[178]"_"[167]90
  146. 1234 [139]b[178]3[167]1230
  147. 1235 [139][198](a$)[179]48[176][198](a$)[177]57[167]1230
  148. 1236 b$[178]b$[170]a$:b[178]b[170]1:[137]1220
  149. 1240 a$[178]"legenclosesiecloseeinecloseformatierteclosediskettecloseeincloseundclosedrueckenclosesieclosereturn."
  150. 1242 [141]2000
  151. 1250 [139]e$[178]"_"[167]90
  152. 1300 ca$[178]b$:an$[178]b$:a[178][197](b$)[170]99:en$[178][201]([196](a),[195]([196](a))[171]1)
  153. 1320 [159]15,8,15,"n:video-archiv"[170][199](0)[170][199](0)[170][199](0):[160]15
  154. 1321 [159]1,8,9,"disk,s,w":[152]1,ca$",":[152]1,en$",":[160]1
  155. 1350 [141]100
  156. 1355 a[178][197](an$):b[178][197](en$):e$[178]"leer"
  157. 1360 [129]x[178]a[164]b
  158. 1361 [139]x[179]10[167]ca$[178]"00":ca$[178]ca$[170][201]([196](x),[195]([196](x))[171]1):[137]1370
  159. 1362 [139]x[179]100[167]ca$[178]"0":ca$[178]ca$[170][201]([196](x),[195]([196](x))[171]1):[137]1370
  160. 1363 [139]x[179]1000[167]ca$[178][201]([196](x),[195]([196](x))[171]1)
  161. 1370 [141]100:[159]1,8,9,ca$[170]",s,w
  162. 1371 print#1,e$",":close1:nextx:ca$="000":goto90
  163. 1400 gosub100:b$="":b=0
  164. 1410 print"[207]\\\\\\\\\\\\\\\\\\\\\\\\[208]
  165. 1413 [153]"&cassetteclose?close---closeclosecloseclosecloseclosecloseclosecloseclosethen
  166. 1414 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
  167. 1420 [153]""[166]17)b$"+poke"
  168. 1430 [161]a$:[139]a$[178]""[167]1430
  169. 1431 [139]a$[178][199](20)[167]1400
  170. 1432 [139]a$[178][199](13)[175]b[178]3[167]1440
  171. 1433 [139]a$[178]"_"[167]90
  172. 1434 [139]b[178]3[167]1430
  173. 1435 [139][198](a$)[179]48[176][198](a$)[177]57[167]1430
  174. 1436 b$[178]b$[170]a$:b[178]b[170]1:[137]1420
  175. 1440 [160]1:an[178]0:an(1)[178]0:[129]x[178]1[164]18:[129]y[178]1[164]17:n$(x,y)[178]"":[130]y:[130]x
  176. 1460 [159]1,8,9,b$[170]",s,r
  177. 1461 input#1,a$:ifa$="leer"thenclose1:goto1480
  178. 1470 input#1,an:forx=1toan:fory=1to17:input#1,n$(x,y):nexty:nextx:close1
  179. 1471 cl=1:ca$=b$:goto90
  180. 1480 cl=1:an=0:ca$=b$:goto90
  181. 1500 a$="legen[160]sie[160]eine[160]daten[160]diskette[160]ein[160]und[160]druecken[160]sie[160]return."
  182. 1501 gosub2000
  183. 1502 ife$="_"then90
  184. 1505 open1,8,9,"disk,s,r":close1:open15,8,15:input#15,a:close15:ifa<>0then1500
  185. 1510 open1,8,9,"disk,s,r":input#1,an$:input#1,en$:close1:ca$="000":ii=1
  186. 1511 open1,8,9,"titel register,s,r":close1:open15,8,15:input#15,a:close15
  187. 1512 ifa<>0then90
  188. 1513 open1,8,9,"titel register,s,r
  189. 1514 [132]1,un:[129]x[178]1[164]un
  190. 1515 [132]1,za$(x):[132]1,zb$(x):[130]x:[160]1:[137]90
  191. 1520 [159]1,8,9,"@:"[170]ca$[170]",s,w
  192. 1521 a$="voll":print#1,a$",":print#1,an",":forx=1toan:fory=1to17
  193. 1522 print#1,n$(x,y):nexty:nextx:close1
  194. 1523 goto90
  195. 1540 ifas=0thenas=1:goto800
  196. 1541 as=0:goto800
  197. 1550 open1,8,9,"@:"+ca$+",s,w
  198. 1551 a$[178]"leer":[152]1,a$",":[160]1:[137]90
  199. 1580 [145]tu[137]1600,1581
  200. 1581 y[178]1:[137]2400
  201. 1600 [141]100:[153]"poke(NULL)\\\\\\\\\\\\\\\\\\\\\(NULL)":[129]x[178]1[164]an
  202. 1601 [153]"&closecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen":[153]"on"n$(x,2):[130]x
  203. 1602 [153]"(NULL)tototototototototototototototototototototosqr
  204. 1610 a$="druecke[160]return":gosub2000
  205. 1615 goto90
  206. 1700 an=an+1:gosub100
  207. 1710 fory=2to16:n$(an,y)="":nexty:b$="":x=0:la=3:s=15:gosub1800:goto1840
  208. 1800 print"[151][207]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\[208]"
  209. 1801 print"&cass.:[160][160][160][160]typ:[160][160][160][160][160]restzeit:[160][160][160][160]min.[167]
  210. 1802 [153]"&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  211. 1803 print"&titel[160][160][160][160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  212. 1804 [153]"&untertitelclose:closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  213. 1805 print"&film[160]art[160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  214. 1806 [153]"&laufzeitclosecloseclose:closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  215. 1807 print"&position[160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  216. 1808 [153]"&kinostartcloseclose:closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  217. 1809 print"&darsteller[160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  218. 1810 [153]"&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  219. 1811 print"®ie[160][160][160][160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  220. 1812 [153]"&fskcloseclosecloseclosecloseclosecloseclose:closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  221. 1813 print"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  222. 1814 [153]"&bemerkungen:closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  223. 1815 print"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  224. 1816 [153]"&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  225. 1817 print"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  226. 1818 [153]"&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  227. 1819 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
  228. 1830 [153]""ca$:[142]
  229. 1840 [139]an[178]1[175]an(1)[178]0[167]a[178]0:x[178]1:[137]1905
  230. 1845 b$[178]"":la[178]21:s[178]14:[129]x[178]2[164]an:n$(x,17)[178]n$(1,17):n$(x,1)[178]n$(1,1):[130]x
  231. 1850 [153]""[166]15)n$(1,1):[153]""[166]29)n$(1,17)
  232. 1900 [129]x[178]2[164]16:a[178]0
  233. 1901 [139]an[178]19[167]a[178][195](n$(zz,x)):n$(an,x)[178]n$(zz,x)
  234. 1905 [153]b$""[166]s)n$(an,x)"+close";
  235. 1910 [161]a$:[139]a$[178]""[167]1910
  236. 1915 [139]a$[178][199](20)[175]a[177]0[167]1950
  237. 1916 [139]a$[178][199](13)[175]a[177]0[167]1960
  238. 1917 [139]a$[178]"_"[175]an[179][177]19[175]x[178]2[167]an[178]an[171]1:[137]1935
  239. 1920 [139]a[178]la[167]1910
  240. 1930 [139][198](a$)[177]64[175][198](a$)[179]91[167]1940
  241. 1931 [139][198](a$)[177]47[175][198](a$)[179]58[167]1940
  242. 1932 [139]a$[178]" "[167]a$[178]"close":[137]1940
  243. 1933 [139]a$[178]"-"[176]a$[178]"."[176]a$[178]"'"[167]1940
  244. 1934 [137]1910
  245. 1935 [139]an[178]0[167]an(1)[178]0:n$(1,1)[178]"":[137]90
  246. 1936 [137]90
  247. 1940 a[178]a[170]1:n$(an,x)[178]n$(an,x)[170]a$:[137]1905
  248. 1950 [139]x[178]1[167]a[178]0:n$(an,x)[178]"":[153]b$[166]s)"pokecloseclosecloseclose":[137]1905
  249. 1951 a[178]a[171]1:n$(an,x)[178][200](n$(an,x),a):  [137]1905
  250. 1960 [139]x[178]1[167][153]"cmdcmdpokeclose":s[178]14:b$[178]b$[170]"":la[178]21:[141]2200:[137]1900
  251. 1965 [153]"cmdcmdpokeclose"
  252. 1970 [139]x[178]2[176]x[178]3[176]x[178]7[176]x[178]8[176]x[178]9[176]x[178]10[176]x[178]11[176]x[178]12[176]x[178]13[176]x[178]14[176]x[178]15[167]la[178]21
  253. 1971 [139]x[178]4[167]la[178]3
  254. 1972 [139]x[178]5[167]la[178]11:[137]1990
  255. 1973 [139]x[178]6[167]la[178]4
  256. 1974 [139]x[178]10[167]la[178]2
  257. 1980 b$[178]b$[170]""
  258. 1981 [139]x[178]11[167]b$[178]b$[170]""
  259. 1982 [130]x:[137]2300
  260. 1990 [139]an[177]1[167]1995
  261. 1991 b[178][197](n$(an,1)):c[178][197](n$(an,5)):d[178]b[171]c
  262. 1992 n$(an,17)[178][201]([196](d),[195]([196](d))[171]1):[137]2100
  263. 1995 b[178][197](n$(an,17)):c[178][197](n$(an,5)):d[178]b[171]c
  264. 1996 n$(an,17)[178][201]([196](d),[195]([196](d))[171]1):[129]y[178]1[164]an:n$(y,17)[178]n$(an,17)
  265. 1997 [130]y:[137]2100
  266. 2000 c$[178]"":d$[178]a$(1)[170]a$[170]a$(1)
  267. 2005 [129]x[178]1[164][195](d$):[153]c$;[202](d$,x,39)"
  268. 2010 gete$:ife$=""thenfora=1to40:nexta:nextx:goto2000
  269. 2011 ife$<>"_"ande$<>chr$(13)then2010
  270. 2015 print"[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  271. 2020 return
  272. 2050 c$="[151]":d$=a$(1)+a$
  273. 2055 forx=1tolen(d$):printc$;mid$(d$,x,39)"
  274. 2060 [161]e$:[139]e$[178]""[167][129]a[178]1[164]40:[130]a:[130]x:[137]2055
  275. 2061 [139]e$[178]"_"[176]e$[178]"let"[167]90
  276. 2062 [139]e$[178]"input"[175]an[178]y[167]2060
  277. 2063 [139]e$[178]"dim"[175]y[178]1[167]2060
  278. 2065 [153]"pokecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose"
  279. 2070 [142]
  280. 2100 [153]""[166]29)"pokeclosecloseclose":[153]""[166]29)n$(an,17):[137]1980
  281. 2200 n$(an,17)[178]n$(an,1)
  282. 2202 [153]""[166]29)"pokeclosecloseclose":[153]""[166]29)n$(an,17):[142]
  283. 2300 [139]as[178]0[175]an(1)[178]0[167]90
  284. 2301 [139]an(1)[178]0[167]1520
  285. 2305 an[178]an(1):y[178]an(2):[129]x[178]1[164]17:n$(y,x)[178]n$(19,x):[130]x:an(1)[178]0:[137]2400
  286. 2306 [139]as[178]0[167]2400
  287. 2310 [137]1520
  288. 2400 [141]100:[141]1800:[153]""[166]15)n$(1,1):[153]""[166]29)n$(1,17)
  289. 2410 [153]""
  290. 2420 [129]x[178]2[164]4:[153][166]14)n$(y,x):[130]x:[153][166]14)n$(y,5)"closepokeminuten
  291. 2425 forx=6to11:printspc(14)n$(y,x):nextx:print
  292. 2430 forx=12to16:printspc(14)n$(y,x):nextx
  293. 2440 a$="f1:vor[160][160][160]f3:zurueck[160][160][160]f5:aendern[160][160][160]f7:ausgang[160][160][160]"
  294. 2441 a$=a$+"f8:loeschen[160]":gosub2050
  295. 2450 ife$="[133]"theny=y+1:goto2400
  296. 2451 ife$="[134]"theny=y-1:goto2400
  297. 2460 ife$="[135]"thenan(1)=an:an=19:an(2)=y:goto2500
  298. 2461 ife$="[140]"then2550
  299. 2462 goto90
  300. 2500 a=val(n$(1,17)):b=val(n$(y,5)):a=a+b
  301. 2501 forx=1toan:n$(x,17)=right$(str$(a),len(str$(a))-1):zz=y:goto1710
  302. 2550 ifan=1thenan=0:n$(1,1)="":an(1)=0:goto2300
  303. 2560 a=val(n$(1,17)):b=val(n$(y,5)):a=a+b
  304. 2561 forx=1toan:n$(x,17)=right$(str$(a),len(str$(a))-1)
  305. 2565 ify=anthenan=an-1:y=1:goto2400
  306. 2570 forx=ytoan:forz=1to16
  307. 2575 n$(x,z)=n$(x+1,z):nextz:nextx:an=an-1:goto2400
  308. 3000 e$="":print"[151][160][160][160][160][160]suche[151][160]nach[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":gosub3010:goto3030
  309. 3010 print"[151][207]\\\\\\\\\\\\\\\\[208] "
  310. 3011 print"[151]&titel[160][160][160][160][160][160][160][160][160][160][160][167] "
  311. 3012 print"[151]&untertitel[160][160][160][160][160][160][167] "
  312. 3013 print"[151]&genre[160][160][160][160][160][160][160][160][160][160][160][167] "
  313. 3014 print"[151]&jahr[160][160][160][160][160][160][160][160][160][160][160][160][167] "
  314. 3015 print"[151]&darsteller[160][160][160][160][160][160][167] "
  315. 3016 print"[151]®ie[160][160][160][160][160][160][160][160][160][160][160][167] "
  316. 3017 print"[151]&fsk[160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  317. 3019 [153]"&restclose(groesser)closethen
  318. 3020 print"&rest[160](gleich)[160][160][160][167]
  319. 3021 [153]"&titelclose(register)then
  320. 3022 print"&ausgang[160][160][160][160][160][160][160][160][160][167]
  321. 3023 [153]"(NULL)totototototototototototototototosqr":[142]
  322. 3030 [153]"titel":tu[178]1:la[178]11
  323. 3050 [161]a$:[139]a$[178]""[167]3050
  324. 3051 [139]a$[178]""[167]3070
  325. 3052 [139]a$[178]"on"[167]3080
  326. 3053 [139]a$[178][199](13)[167]3090
  327. 3060 [137]3050
  328. 3070 [139]tu[178]la[167]3050
  329. 3071 tu[178]tu[170]1:[137]820
  330. 3080 [139]tu[178]1[167]3050
  331. 3081 tu[178]tu[171]1:[137]820
  332. 3090 [139]tu[178]11[167]90
  333. 3100 [153]"poke
  334. 3101 print"[207]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\[208]
  335. 3102 [153]"&suchbegriff:closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  336. 3103 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
  337. 3110 [153]""[166]13)e$"+close";
  338. 3120 [161]a$:[139]a$[178]""[167]3120
  339. 3130 [139]a$[178]"_"[167]90
  340. 3135 [139]a$[178][199](13)[175][195](e$)[177]0[167]3180
  341. 3136 [139]a$[178][199](20)[175][195](e$)[177]0[167]3170
  342. 3140 [139][195](e$)[178]21[167]3120
  343. 3145 [139][198](a$)[177]64[175][198](a$)[179]91[167]3160
  344. 3146 [139][198](a$)[177]47[175][198](a$)[179]58[167]3160
  345. 3147 [139]a$[178]" "[167]a$[178]"close":[137]3160
  346. 3148 [139]a$[178]"-"[167]3160
  347. 3150 [137]3120
  348. 3160 e$[178]e$[170]a$:[137]3110
  349. 3170 e$[178][200](e$,[195](e$)[171]1):[137]3110
  350. 3180 [153]"cmdcmdclose":[139]tu[178]10[167]4300
  351. 3190 [141]100
  352. 3200 a[178][197](an$):b$[178]an$:ca$[178]b$:[153]"load":du[178]0
  353. 3201 [153]"pokeonon&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  354. 3202 forz=1to23:print"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]":next:print"
  355. 3205 :
  356. 3210 [159]1,8,9,b$[170]",s,r
  357. 3215 input#1,a$:ifa$="leer"thenclose1:goto3500
  358. 3220 input#1,an:forx=1toan:fory=1to17
  359. 3230 input#1,n$(x,y):nexty:ontugoto3400,3400,3405,3410,3415,3417,3417,3420,3430
  360. 3240 nextx:close1:goto3500
  361. 3300 cl=1:ca$=b$:goto90
  362. 3400 ifleft$(n$(x,tu+1),len(e$))=e$then1440
  363. 3401 goto3240
  364. 3405 ifleft$(n$(x,tu+1),len(e$))=e$then3600
  365. 3406 goto3240
  366. 3410 a=val(e$):b=val(n$(x,tu+3)):ifb=aorb>athen3600
  367. 3414 goto3240
  368. 3415 ifleft$(n$(x,8),len(e$))=e$orleft$(n$(x,9),len(e$))=e$then3600
  369. 3416 goto3240
  370. 3417 ifleft$(n$(x,tu+4),len(e$))=e$then3600
  371. 3418 goto3240
  372. 3420 a=val(e$):b=val(n$(x,17)):ifb>aorb=athen3700
  373. 3421 goto3240
  374. 3430 a=val(e$):b=val(n$(x,17)):ifb>a-1andb<a+10orb=athen3700
  375. 3431 goto3240
  376. 3500 a=val(b$):b$="":a=a+1
  377. 3501 ifa<10thenb$="00":b$=b$+right$(str$(a),1):goto3510
  378. 3502 ifa<100thenb$="0":b$=b$+right$(str$(a),2):goto3510
  379. 3503 b$=right$(str$(a),3)
  380. 3510 geta$:ifa$="_"then3530
  381. 3515 ca$=b$:ifb$<>en$then3205
  382. 3520 print"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  383. 3521 [153]"poke&dateicloseendeclose!!!closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  384. 3525 geta$:ifa$=""then3525
  385. 3530 b$=an$:goto1440
  386. 3600 ifdu=0thenprint"[145][151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]":goto3620
  387. 3601 print"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  388. 3620 du[178]1:[153]"on"n$(x,2):[153]"on"[166]34)ca$
  389. 3630 [137]3240
  390. 3700 [139]du[178]0[167][153]"onpoke&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen":[137]3720
  391. 3701 [153]"poke&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen
  392. 3720 du=1:print"[145]cassette[160]"ca$"[160]mit[160]"n$(x,17)"[160]minuten.
  393. 3730 [160]1:[137]3500
  394. 3800 [139]cl[178]1[175]an[177]0[167]3810
  395. 3803 a$[178]"dasclosetitelcloseregistercloseistclosenochcloseleerclose!!!":[141]2000:[137]90
  396. 3810 [159]1,8,9,"@:titel register,s,w
  397. 3811 print#1,un",":forx=1toun
  398. 3812 print#1,za$(x)",":print#1,zb$(x)",":next:close1:goto90
  399. 3900 print""spc(19)"register[151]":gosub3901:goto3911
  400. 3901 print"[151]"spc(19)"[207]\\\\\\\\\\\\\\[208]
  401. 3902 [153][166]19)"&titelclosecopierenthen
  402. 3903 printspc(19)"&titel[160]tauschen[167]
  403. 3904 [153][166]19)"&titelcloseansehenclosethen
  404. 3909 printspc(19)"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
  405. 3910 [142]
  406. 3911 [153]""[166]20)"titelclosecopieren":tu[178]1:la[178]3:[137]700
  407. 4000 [145]tu[137]4001,4005,4008
  408. 4001 [139]cl[178]0[167]4011
  409. 4002 [139]un[178]500[167]4012
  410. 4003 [137]4100
  411. 4005 [139]cl[178]0[167]4011
  412. 4006 [139]un[178]0[167]4010
  413. 4007 aj[178]1:[137]4100
  414. 4008 [139]un[178]0[167]4010
  415. 4009 [137]4600
  416. 4010 a$[178]"esclosebefindetclosesichclosekeinclosetitelcloseimcloseregisterclose!!!":[141]2000:[137]90
  417. 4011 a$[178]"esclosebefindetclosesichclosekeineclosecassettecloseimclosespeicherclose!!!":[141]2000:[137]90
  418. 4012 a$[178]"esclosebefindenclosesichclosebereitsclose500closetitelcloseimcloseregister !!!":[141]2000:[137]90
  419. 4100 [153]"load":[141]100
  420. 4101 [153]" poke(NULL)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(NULL)
  421. 4102 print" [151]&waehlen[160]sie[160]den[160]titel[160]!!![160][160][160][160][167]
  422. 4103 [129]x[178]1[164]an[170]2:[153]" poke&closecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen":[130]x
  423. 4104 [153]" poke(NULL)tototototototototototototototototototototototototototototosqr
  424. 4110 print"":forx=1toan
  425. 4111 print""n$(x,2):next
  426. 4115 print"ausgang":a=1
  427. 4116 print"
  428. 4117 [153]""n$(1,2)
  429. 4120 [161]a$:[139]a$[178]""[167]4120
  430. 4121 [139]a$[178]"on"[167]4130
  431. 4122 [139]a$[178]""[167]4140
  432. 4123 [139]a$[178]"_"[167]aj[178]0:[137]90
  433. 4124 [139]a$[178][199](13)[167]4200
  434. 4125 [137]4120
  435. 4130 [139]a[178]1[167]4120
  436. 4131 a[178]a[171]1
  437. 4132 [139]a[170]1[178]an[170]1[167][153]"":[129]x[178]1[164]a:[153]"";:[130]:[153]""n$(a,2)
  438. 4133 [139]a[170]1[178]an[170]1[167][153]"pokeausgang":[137]4120
  439. 4134 [153]"":[129]x[178]1[164]a:[153]"";:[130]:[153]""n$(a,2)
  440. 4135 [153]"poke"n$(a[170]1,2):[137]4120
  441. 4140 [139]a[178]an[170]1[167]4120
  442. 4141 a[178]a[170]1
  443. 4142 [139]a[178]an[170]1[167][153]"":[129]x[178]1[164]a[171]1:[153]"";:[130]:[153]"poke"n$(a[171]1,2)
  444. 4143 [139]a[178]an[170]1[167][153]"ausgang":[137]4120
  445. 4144 [153]"":[129]x[178]1[164]a[171]1:[153]"";:[130]:[153]"poke"n$(a[171]1,2)
  446. 4145 [153]""n$(a,2):[137]4120
  447. 4200 [139]a[178]an[170]1[167]90
  448. 4201 [139]aj[178]1[167]aj[178]0:[137]4400
  449. 4202 un[178]un[170]1:za$(un)[178]n$(a,2):zb$(un)[178]ca$:[129]x[178]1[164]16:[151]53280,x:[130]:[137]4120
  450. 4300 [153]"load":[153]"poke&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen"
  451. 4301 [129]z[178]1[164]23:[153]"poke&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen":[130]
  452. 4302 [153]"bitteclosewartenclose!!!
  453. 4310 a=len(e$):forx=1toun:ife$<>left$(za$(x),a)thennext:goto4320
  454. 4311 print"titel[160]gefunden[160]!!!
  455. 4312 [153]"loadingclosedatei...":b$[178]zb$(x):[137]1440
  456. 4320 [153]"titelclosenichtclosegefundenclose!!!
  457. 4321 print"druecken[160]sie[160]eine[160]taste[160]!!!
  458. 4322 [161]a$:[139]a$[178]""[167]4322
  459. 4323 [137]90
  460. 4400 [153]"poke":e$[178]""
  461. 4401 [153]"(NULL)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(NULL)
  462. 4402 print"&kommt[160]auf:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
  463. 4403 [153]"(NULL)totototototototototototototototototototototototototototototototototototosqr
  464. 4410 print""spc(11)e$"+[160]";
  465. 4420 geta$:ifa$=""then4420
  466. 4430 ifa$="_"then90
  467. 4435 ifa$=chr$(13)andlen(e$)>0then4480
  468. 4436 ifa$=chr$(20)andlen(e$)>0then4470
  469. 4440 iflen(e$)=21then4420
  470. 4445 ifasc(a$)>64andasc(a$)<91then4460
  471. 4446 ifasc(a$)>47andasc(a$)<58then4460
  472. 4447 ifa$=" "thena$="[160]":goto4460
  473. 4448 ifa$="-"then4460
  474. 4450 goto4420
  475. 4460 e$=e$+a$:goto4410
  476. 4470 e$=left$(e$,len(e$)-1):goto4410
  477. 4480 print"[157][157][160]":
  478. 4500 print"[147]":print"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  479. 4501 forz=1to23:print"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]":next
  480. 4502 print"bitte[160]warten[160]!!!
  481. 4510 [129]x[178]1[164]un:[139]e$[179][177]za$(x)[167][130]:[137]4520
  482. 4511 za$(x)[178]n$(a,2):zb$(x)[178]ca$:[137]90
  483. 4520 [137]4320
  484. 4600 a[178]1:tj[178]0
  485. 4601 [153]"load":[153]"poke&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen"
  486. 4602 [129]z[178]1[164]23:[153]"poke&closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosethen":[130]
  487. 4603 [153]"":[129]x[178]a[164]a[170]19:[153]""za$(x):[153]"on"[166]34)zb$(x)
  488. 4605 [139]za$(x[170]1)[178]""[176]x[178]500[167]tj[178]1:[129]x[178]1[164]2:[130]x:[137]4610
  489. 4606 [130]x
  490. 4610 [153]"drueckenclosesiecloseeineclosetasteclose!!!
  491. 4620 geta$:ifa$=""then4620
  492. 4621 iftj=1thentj=0:goto90
  493. 4622 ifa$="_"then90
  494. 4623 tj=0:a=a+20:goto4601
  495.